cers 


8/E EAE ROUTINE FOR FOCAL 


ol, OPAPLe 


AUTHOR James Van Zee 
COMPANY University of Washington ae ae ee | 
| Seattle, Wa ashington -_ - | 
DATE [7 June 1973 | 
SOURCE LANGUAGE PAL8 
ATTENTION ee ee ee ee cn es ee 


This is a USER program. Other than requiring that it conform to submittal and review standards, 
no quality control has been imposed upon this program by DECUS. 

The DECUS Program Library is a clearing house only; it does not generaté or test programs. No 
warranty, express or implied, is made by the contributor, Digital Equipment Computer Users 
Society or Digita Equipment Corporation as to the accuracy or functioning of the program or 


related material, and no responsibili ty is assumed by these parties in connection therewith. 


wo 


8/E EAE ROU" INE FOR FOCAL 


DECUS Program Library Weiteup DECUS NO. “FOCALS~284 


THis FOCAL EAE PATCH WAS DESIGNED SPECIFICALLY FOR THE O/e 

COMPUTER SERIES. IT uses ModE B EAE INSTRUCTIONS AND A NEW 
MULTIPLY ALGORITHM TO PROVIDE A SUBSTANTIAL IMPROVEMENT OVER 

THE REGULAR PATCH SHOWN ON PAGE 89 OF THE LISTING. THE TIME 
REQUIRED TO MULTIPLY TWO 36 BIT NUMBERS IS NOW ONLY 155 mMiCcRO- 
SECONDS COMPARED TO TYPICALLY 7OO MICROSECONODS WITH THE OLDER 
EAE ROUTINE AND OVER 2000 MICROSECONDS WITH SOFTWARE. THE | 
RESULT IS ALSO esi OFF = NOT JUST TRUNCATED = WHICH pe 
THE ACCURACY. 1S DEMONSTRATED BY THE COMMAND "T @, 7 


WHICH NOW GIVES” Ni aE Bo" INSTEAD OF 9999993995 E499" 


THe: THREE-WORD NORMALIZE ROUTINE HAS ALSO BEEN REWRITTEN. 
THE ENTIRE NORMALIZATION NOW TAKES ONLY 60 MICROSECONDS. PRE-| 
VIOUSLY IT TOOK THAT LONG JUST TO DEAL WITH NEGATIVE NUMBERS — 
SINCE THE SOFTWARE (UNLIKE THE HARDWARE) COULD ONLY HANDLE 
POSITIVE NUMBERS. ADDITIONALLY A SHORTCUT USED BY THE SOFT- 
WARE HAS BEEN ELIMINATED WHICH [MPROVES THE ACCURACY OF CER= 
TAIN NEGATIVE NUMBERS BY A FACTOR OF TWO. ANOTHER ADVANTAGE 
OF THE HAROWARE ROUTINE 1S THAT MULTIPLE SHIFTS ADD ONLY A 
FRACTION OF A MICROSECOND PER SHIFT. THIS MEANS THAT EVEN THE. 
LONGEST NORMALIZATION (34 SHIFTS) TAKES ONLY 67 MICROSECONDS 
IN CONTRAST TO THE SOFTWARE WHICH 1S 23.5 TIMES SLOWER (15 3. 
MELLISECONOS). WHILE SUCH DRAMATIC |MPROVEMENTS ARE NOT AS 
COMMON AS FACTORS OF 2-4, SINCE THE NORMALIZE ROUTINE 1S USED. 
AT THE END OF EVERY ARITHMETIC OPERATION THESE IMPROVEMENTS 
SPEED UP ALL FLOATING POINT CALCULATIONS AND NOT JUST THOSE 
INVOLVING MULTIPLICATION. a tee 


Because THE HARDWARE DIVIDE INSTRUCTION. USES ONLY A SINGLE 
WORD DIVISOR (AND BECAUSE DIVISION 1S NOT ASSOCIATIVE). THIS 
INSTRUCTION CANNOT BE USED IN THE FLOATING. DIVIDE ROUTINE, BUT. 
47 1S USED IN TWO OTHER PLACES TO CREATE O worRdD "Hotes". FoR 

FLOATING DIVISION TWO. DISTINCT APPROACHES HAVE BEEN USED: ONE 
FOR THE STANDARD VERSION OF FOCAL AND THE OTHER FOR THE 10- 
DIGIT VERSION. THE LATTER OFFERS ONLY MINOR IMPROVEMENTS UPON 
THE ROUTINE SHOWN IN THE FOCAL LISTING, BUT THE REGULAR VER- 
SION NOW TAKES ADVANTAGE OF THE DAD INSTRUCTION TO REDUCE THE 
(DIVIDE TIME BY A FACTOR OF 1.7 (TYPICALLY). IN BOTH CASES 
THE "ZERO DIVISOR" ERROR CODE HAS BEEN CHANGED TO 20.<1 AS A 
RESULT OF MOVING THINGS “AROUND. TO CONSOLIDATE EMPTY AREAS. 


Fewe ARE SEVERAL OTHER PLACES WHERE EAE INSTRUCTIONS (or 
EVEN JUST THE BSW INSTRUCTION) COULD BE USED. HOWEVER, SINCE 
GENERALLY ONLY A FEW MICROSECONDS WOULD BE SAVED, THESE CHANGES 
WERE FELT TO BE INSIGNIFICANT. ONE EXCEPTION 18 THE ALIGN/F IX 
ROUTINE WHICH COULD GREATLY BENEFIT FROM THE ASR INSTRUCTION. 
UNFORTUNATELY THE MODIFICATION WOULD REQUIRE ADDITIONAL CORE 
SPACE IN A TIGHTLY=CODED AREA AND SO WAS” NOT INCLUDED. 


LASTLY iT SHOULD BE NOTED THAT BEFORE EXITING FROM THE 
FLOATING@POINT INTERPRETER THE MQ REGISTER 1S CLEARED AND THE 
EAE RETURNED TO Move A. THUS OTHER ROUTINES, ESPECIALLY THOSE 
WRITTEN FOR PREVIOUS EAE's, MAY BE USED WITHOUT CONCERN AS TO 
WHICH MODE 4S SET. | en ee ee et ee, 


| THE BINARY TAPE CONTAINS TWO SECTIONS: THE FIRST LOADS THE 
-10-DIGIT VERSION OF ALL ROUTINES AND THE SECOND MODIFIES THE 
MULTIPLY AND DEVEDE ROUTINES FOR THE NORMAL (3 WORD) VERSETONS 
 THus FOR STANDARD FOCAL THE ENTIRE TAPE SHOULD BE READ IN AFTER 
—Loaoine FOCAL. Wren tHE 4-woro (10 dtGit) OVERLAY 1S USED, IT 
SHOULD BE LOADED FIRST, FOLLOWED BY THE FIRST SECTION (oNLY) 
OF THE EAE TAPE. THERE. is NO KNOWN CONFLICT WITH ‘OTHER: FOCAL 


OVERLAYS. 


= THe TOTAL FREE SPACE AVAILABLE DEPENDS ON WHETHER THE ce OR 
(10-D1IGIT VERSION. 1S USED. WITH THE 10=DIGIT VERSION THE LARGEST 
FREE BLOCK «8 46 worDS LONG. IF ONLY THE 6=DIGIT VERSION 1S 
REQUIRED, THIS PARTICULAR AREA BECOMES 49 WORDS LONG AND ANO- 
THER 45 woRD BLOCK 1S ALSO AVAILABLE. (Tuts couto be 48 words 
iF "MINUS" weRE SIMPLIFIED.) THE LOCATION OF STILL OTHER FREE 
AREAS CAN BE DETERMINED FROM THE LISTING. SItnCE THE REGULAR 
EAE PATCH SAVED ONLY 12 WORDS THIS FEATURE MAY BE CONSIDERED 
A BIG IMPROVEMENT TOO. THE AUTHOR, FOR INSTANCE, HAS IMPLE- 
MENTED HIS FCOM FUNCTION IN PART OF THIS. SPACE. | ak ee 


THE FOLLOWING COMPARATIVE EXECUTION Aies GN ICROSECONDS) 
MAY BE OF INTEREST. THE MEASUREMENTS DO NOT INCLUDE THE TIME 
REQUIRED FOR SIGN@=CHECKING OR NORMALIZATION, NOR DO THEY [N= 
“CLUDE THE ARGUMENT FETCH = ALL OF WHICH NATURALLY REOUCE THE’ 
NET IMPROVEMENT IN PROGRAM SPEED. AS AN OVERALL FIGURE, IT 
WAS OBSERVED THAT A PROGRAM PERFORMING A LEAST=SQUARES FIT ON 

1022 age POINTS (DATA WAS STORED ON DECTAPE IN ASCII FORMAT) | 
RAN 1 Le SLOWER WITH THE REGULAR EAE PATCH AND 25% SLOWER WITH 
JUST. THE SOFTWARE ROUTINES (10 DiGIT. VERSIONS). THIS RESULT | 
18. PROBABLY TYPECAL FOR CALCULAT ION~ BOUND PROGRAMS. : 


3 Word VERSION Sie ee m WORD VERSION 
7 a A ae ee ne oa r me (23 tas 35 ed 
N*N: N= as 1 [eralerer| pu] a [2 -1}2 -1/2 43/2 -1 | ae 
SOFTWARE 660] 1281 


(1345 [1292 _ 1309 [2550|2670|2730| 3008 286 
Sto. EAE | 207} 321) 27 | re 629) 636] 686. 


THis EAE. SEIT + et 8D, 155 199 ia 


AAT : i 
B19, 8 | Ao. ae} 8. “il 16. 5 GHGs 6| 19. 0. he. 5h 


 «fTYPE KES-E. 


7405 


(74G7 


T4.h- 


7413 
74a2t 
7431 
T7443 


7445 
7447 


7451 


7521 


7575 


7621 
7761 


sain’ 
949 
 8G44 


6936 
Gii3 


G124 


2442 


6680 
6136 
6154 
6489 
6520 


PAL8-V7 shied 


AL PATCHES FOR B/E EAE JVZ 
/FO CAL PATCHES | FOR 8/E EAE JVZ 
/THESE PATCHES SUBSTAN TIALLY REWRITE FOCAL'S MULTIPLY AND 


/NORMALIZE ROUTINES IN ORDER TO USE EAE INSTRUCTIONS. THE 
JHARDWARE ASSUMED IS A PDP-S/E EXTENDED ARITHMETIC ELEMENT 
MODE B INSTRUCTIONS ARE USED EXTENSIVELY. THE 
/MEASURED EXECUTION TIME FOR A 36 BIT BY 36 BIT MULTIPLY 
71S ONLY 155 MICROSECONDS - ABOUT HALF THE TIME NEEDED FOR 
/ONE 12 BIT PRODUCT (OF WHICH THERE ARE 9) USING THE STAN- 
/DARD SOFTWARE ROUTINES AND FASTER BY A FACTOR OF 4.5 THAN 
/THE PATCH SHOWN ON P. 89 OF THE FOCAL LISTING. SIMILARLY 
THE TIME FOR A. 1 BIT NORMALIZE HAS BEEN DECREASED BY A 
/FACTOR OF 2. FOR NEGATIVE NUMBERS A FACTOR OF 3 1S OB- 
/TAINED SINCE NO INVERSION 1S REQUI RED. DIVIDE AND SOME 


/OTHER ROUTINES HAVE ALSO BEEN REWRITTEN IN ORDER TO CON- 


/SOLIDATE EMPTY AREAS. THESE MODIFICATIONS MAKE AVAILABLE 


778 WORDS AND CHANGE THE ZERO=-DIVISOR ERROR CODE TO 28e< le 


: ‘SYSTEM SYMBOL Ss 


DVI=7497 
NMI=7411 
— SHL* 7413 | 
MQL2742) 
WAB= 7431 — 
SCA2 7 443 — 
DST#7445 
SWBAS7447 
gp DESeS TAS |. 
7 WP27521 
CAM= 7621 
' ACL2=7791 


FIXTAB 
7 FOCAL SYMBOL St 


73833 
FLO P= 4g 
FLAC#44 
SIGN F= $¢ 
-—«sF2682113 
 P4agsge2 124 


 /OPERAND 
—/ACCUMULATOR 
7SIGN OF RESULT 


PRNT#2442 — 
FLOUTP2=6800 

 SMIN#6136 

| OUTDG= 6154 

 FPNT=6 466 © 
ZERO=6520 


86137 


96364 


G6565. 


86876 


. 06752 


AL PATCHES FOR 8/E EA 


4451 


4527 — 
—aS51 


4566 


24a4 
4 7427 

8612 
7521 


1119 
455) 


782i 
1243. 


4551 
5642 


6194 
7780 


7144 


PF 64551 
—-: 1833 


7519 
7B4l 
7427 


e144 
7521 
7440 
4354 
(7521 
4737 


26 68 


$260 
6137. 
(2442 


(6384 
7168 


6565 


7123 


6576 — 
7165 


6752 — 
7168 


-RESOLS» 


| OPMINSs 


E JVZ 


PAL8-V7 6/7/73 _ 


S8 


/FOCAL INSTRUCTION 


SSMS I Sh 
7IMS 1 127 
7JMS ¥ 15! 
JIMS I 166 


SHIFTL24527 
PRIN TC#4551. 
ERRO R22 4566 


/PRINT Two. DECIMAL praits 
/ DIVIDE BY TEN 


-/GET QUOTE ENT 
/FORM ASCII 


GET REMAINDER 
TAD C260 oi we oe 
PRINTC | 
SMP 1 PRNTD | 
(ZBLOCK 18 - CEIGHT LEFT OVER 
EXPONENT OUTPUT ROUTINE 
‘7TEST SIGN OF EXPONENT © 
7OR "=" 


— W6IG4 
SMA CLA 
CMA CLL RAL 
TAD SMIN = 
PRIN TC 
TAD TS 
SPA 
CIA 
M@L DVI 
ee 


/GET DECIMAL EXPONENT : 


TAKE ABSOLUTE VALUE 
— 7DIEVEDE BY ONE HUNDRED 


 /PRINT QUOTIENT _ 
 PUNLESS IT'S ZERO 
; OUTDG | 
; | /Now PRINT. REMAINDER 
1 PRNTL =° ; | 
I FLOUTP 7 opie 


“ZBLOCK 16° EIGHT FREE 


(POINTERS REQUIRING ‘CHANGES: 


#6437 
PRPNTI, PRNT 
#6364 St ea eee eae ee ga: 
RESOLV /FOR FLOATING INPUT | 
#6565 ; | | 

MINUS © _ “FOR SUBTRACTION © 
#6576 Re ee ee 
 FLDV - “FOR DIVISION 
#6752 —— 


RESOLs RESOLV FOR FIX” 


97003 


 §70B4 


87085 


97686 


67007 
O7818 ~ 
O7B11 


879012 


@7013 ° 


87014 
97815 
9716 
87817 


67628 
67625 


$7822 


87923 
87624 
87925 
97826 


(97027 
87636 
@7631 
e7e32 1 


87633 
87634 


67035 


87036 


87637 
S7B4B 


87041 
67942 


97943 
97044 


— 87845 
O7G46— 


87847 


PATCHES FOR S/E EA 


/ THREE WORD 


E JVZ 


PALS-V7 6/7/73 


BY THREE WORD UNSIGNED MULTIPLY ROUTINE 


/ CAtB+C)*(DtE+F) = CONE+ TWO+ THREEs FOUR+ FI VE* SIX) 


/THE METHOD GENERATES ALL 6 WORDS, BUT 1S MODIFIED 
HERE TO PRESERVE ONLY THE 3 MOST SIGNIFICANT ONES. 


MULT, ~ 


 * 7983 


o 43 


JMS MINUS. 


SWAB 


CFs. 


BFs ; 


CEs . 


AFs | 


CD. 


TaD C 


ADDITIONALLY THE RESULT IS ROUNDED OFF RATHER THAN 
SIMPLY. TRUNCATED WHICH IMPROVES THE ACCURACY — 


/LO0P COUNT TERMINATES LIST _ 


-/ADD EXPONENTS CPLUS 1). 


/TEST FOR ZERO OPERAND 


“POSITIVE OPERAND REQUIRED 
_ “SET MODE B 


/CTAD P4988) FOR 2X2 
/CJMP BE-1)- 


FOR 2X2 


ples Geeta 


“USE PREVIOUS HIGH ORDER AS 
-7REMAINDER IN THIS: POSITION 
PROUND OFF > 


/ SAVE IN TERMEDI ATE RESUL T 


(SANE CARRY AND/OR CLEAR TAREE 


/ADD IN ‘PREVIOUS 

7PARTIAL PRODUCT — 

7 SUM HIGH ORDER PARTS 
7DISCARD FIVE AND SAVE CARRY 


ACCUMULATE CARRIES — 


 /BUILD UP LEAST SIGNIFICANT 
“PART Beer RESULT | 


ENTRY POINT FOR 2x2 _ 


AL PATCHES FOR 8/E EA 


BEs | 


AES 


BDs 


ADs 


5 NORM, 


UMP I MULT. 
 DNORM 


JVZ 


SWP 


UMS I NORM 
JMS RESOLV 


ZBLOCK 2¢ 


‘STANDARD DEFINITIONS: 


 EXi= FLOP | 
AC IH=FLOP+! 


AC IL=FLOP+ 2 


| OVERI=FLOP+3 7 


 EXP= FLAC 


HORD=FLAC+ 1 
LORD2 FLAC+ 2 
OVER2= FLAC+3 


(LETTER ASSIGNMENTS: 


A=HORD | 


B=LORD 


C=O0VER2 


DeACIH © 


EZ ACIL . 
F20VER! 


 PALB= V7 6/7/73 © 


/DISCARD FOUR — 


SAVE GARRY - 


/SUM CARRY BITS 


_ /WITH CARRY WORD 


/(MOL) FOR 2x2 
7SAVE THREE 


‘/SAVE ONE & TWO 


NORMALIZE IF REQUIRED 
_ RESTORE PROPER SIGN | 
 7AND RETURN 


/ SIXTEEN FREE WORDS 


/OPERAND 


AL PATCHES FOR 8/E 


87123 
B7124 


87125 


97126 
87127 
87136 


GB7131 


(97132 
87133 
~~ 87134 
67135 
87136 
67137 
87149 
97141 
87142 


67143 


87144 
87145 
57 146 
97147 
87159 
67151 
87152 


97153 


B7154 
87155 


87156 


67157 


07168 
O87161 
67162 
87163 
87164 


/ THESE SUBR OUTINES PR 
J ANY COMBINATION OF SIGNED ARGUM 


PAL G= Vr 6/77 73° 


EAE JVZ 


EPARE MULTIPLY AN D DI vi DE FOR 
ENTS», OR FOR Z ERO« 


/THE RESULT OF EITHER IS ZERO IF FLAC 1S ZERO} IF” 


/THE OPERAN 


BUT 


D 1S ZERO THE PRODUCT IS ALSO ZERO, 


/ATTEMPTED DIVISION BY ZERO RETURNS WITH AN ERRORe 


/THE SIGN ROUTINE IS 
_/NENT IN THE AC AND EXITS WITH THE SIGN OF THE OP- . 
_/JERAND THERE TO FACILITATE FURTHER TESTINGs | 
/ SIGN (OF THE RESULT rs STORED IN SIGN Fe 


ENTERED WITH THE OPERAND EXPO- 


THE 


@908 MINUS, © | /NEGATES 0 PERAND 
1943 TAD OVERI | 
7431 SWAB 
1942 TAD ACIL 
7575 DCM 
7565 SWP DST 
8G42 — ACIL 
T7447 SWBA 
7224 CLA CML RAL 
(194! TAD ACIH | 
— 7841 ee Aen files os 
3841 DCA ACIH- 
—§723 JMP. ¥ MINUS 
9900 SIGN, 8  ~ tg er ee Pe gt ee 
7681 lac _ /ADD 1 TO EXPONENT OF OP. | 
1944 TAD EXP . 7COMPUTE EXPON EN T OF RESULT | 
3644. DCA EXP . | oe ats 
7139 STL RAR /SET BIT @ 
6041 AND ACIH - ZEXTRACT SIGN © 
—- 1845 TAD HORD _7FORM XOR OF SIGNS 
3358 DCA SIGNF 7SIGN OF RESULT | 
1845 TAD HORD ae | ie ORs 
7450 NA STEST IF RESULT = ZERO 
5757 JMP I NULL | | 
9718 SPA CLA ‘ABSOLUTE VALUE REQUIRED 
4451 NEGATE 
1941 TAD ACIH / CHECK THE OPERAND 
5748 ~~ JMP I SIGN 7FOR VARIOUS THINGS. 
6520 NULL, ZERO a "2 & sues | 
oo00 RESOLV, @ Pe -/SET PROPER SIGN 
1958 ‘TAD SIGNF  — ss | 
7718 | SPA CLA 
4451 NEGATE 
5760 ‘JMP I RESOLV | 
/NUMBER- ASSIGNMENTS: 
7123 - ‘TwoxMINUS~ 
7146, - THREE= SIGN > 
7168 chet ince ahd 


/FOCAL PATCHES FOR 8/E EAE JVZ 


97165 


87166 
67 167 
B7 176 


O717i- 


87172 
87173 
87174 


@7175, 
87176 743: 
7418 


67177 


87298 


07291 


87262 


67263 
87204 
67285 
87266 
67287 


87216 


o7211 
67212 


97213 


87214 
67215 
S7216 


O7217 


67220 
67221 


67222 
97223 
67224 
97225 
67226 


87227 
87230 
07231 


87232 


87233 
97234 
67235 


67236 
97237 
97249 
67241 
67242 


97243 
O7244 


87245 


\ 87246 
/ 971247 


TC 
7TG41 
4348 


7456 


4566 
77 BG 
4323 
1203 


3848 


7431 


4527 
7168 


1943 
1BAa7 


3335 


71064 
1@42 
19.46 
3364 


FLDV, 


DLOOPs 


7664 
1641 


1945 


5223 


3047 
7761 


7684 


7428 


3845 © 
1364 
36460 
1335. 


7421 


1377 


1864 
3377 


1376 
7084 
3376 


2049 
(5200 


1376 
3845 


1377 
7565 
GG46 
4335 
A647 


9646 


649 1 


7168 — RSL. 


THIS Is ‘THE FLOATING DIVIDE 


SMA CLA 
JMS MINUS 
TAD MULT=1 


DCA EX 


PALS-V7 (6/1/73 


ROUTINE (THREE WORDS) 


/GET OPERAND EXPON EN T 
7OND NEGATE — | 


CHECK SIGNS @ cane 


/CHECK FOR ZERO DI VISOR 


(7THAT'S A NO-NO! 


_ (NEGATIVE OPERAND REQUIRED 
_ 7SET UP LOOP COUNT 


 /OLEAR RESULT 


_/SHIFT FLAC LEFT 
(THREE WORD SUBTRACTION 


2 “qrmronane sronaoe 


| | /LINK#1 Bis SUCCESSFUL al >a) 


SAVE RESULT 


2 


/ SAVE Link BITS IN att, aLome 


/INCREMENT STEP COUNTER 


(SAVE RESULT AT THE EN pb 


| NORMALIZE 1F NECESSARY 


7SET ‘PROPER SIGN 


/ FOCAL 


"97258 


97326 


67327 
673368 
97331 
87332 

(87333 


97334 . 


67335 
07336 

87337 
87346 
67341 
87342 
97343 


=~ 97344 


~—87345 
87326 
87347 
97356 
(67351 
87352 
87333 
97354 
67355 
87356 


67357 


87360 


07361 
97362 
97363 
87364 
97365 
97366 
97367 
67370 
87371 


87372 


67373 


O7374 
87375 


07376 
67377 


Seo 


Tail 
7565. 


8845 
7663 


1334 


5367 


6614 


8208 
7306 
18.46 


742th. 
1945 
7447 


7411 
7431 
744) 
7451 


Tat 
1334 


764) 


3364 
1647 


73573 


—7ale 


PATCHES FOR 8/E EA 


2 BLOCK ‘56 | 


E JVZ 


PAL8-V7 6/7/73 


SPACE ; 


4 FREE 


JERE SIGNED NORMALIZE ROUTINE: (THREE WORDS) 


@T13, 


Pid, 


DNORM, 


S371 


3045 


19.46 
7429 
5326 


7413 
(6880 


3846 
1364 
7O41 


1Gaa 


3944 
7521 
347 
7447 
57 35 


G08 
2090 


NMI 


SsuP 


CAM 


TAD 


JMP 


ae 


TAD 


—MQL 
TAD 
SYBA 


NMI 


CLA 


DST 
-HORD 
SCA 


P14 


CLL 
LORD 


HORD | 


SWAB 


DCA 


TAD 
SWwP 


SCA 
DPSZ 
CLL 
TAD 
CLA 


CIA. 


Pia 
SCA 
SCNT 


OVER2 


DPSZ 


SKP: oi 


IMP 
DCA 


TAD 
‘SNL 


IMP 


SCNT, 


ALL @~» 


QH I » 


QLO. 


SHL 
8 


‘DCA 

TAD 
Cla. 
‘EXP 


TAD 


DCA 
SWP 


DCA 


SUBA 
UMP I DNORM 


oa 


HORD 
LORD 


GTI3 


LORD © 
SCNT 


EXP 


OVER2 


ALLO-2 


ALLO 


/NORMALIZE LOWER PART 


-/GET NEW SHIFT COUNT 
7PLUS TWELVE | 


/OLEAR LINK FOR LATER ee 


/.0ad Ac. Ma 


-/SET MODE a TO. 


7PROTECT 4960 9608 
7SAVE RESULT IN MQ. 


_ «@GET SHIFT COUNT 
| CHECK FOR ZERO 


/ SET LINK IF < ‘TWELVE "= 


| / SAVE SHIFT COUNT 


 yoHECK FOR ZERO 
(ACs RESULT 


/oGEe “TWELVE 2 - 
SYESS3 IGNORE SIGN ‘BITS. 


_ /MODE Bo 


/CORRECT EXPONENT 


/CLEAR Ma 7 


/SAVE OR CLEAR LAST WORD | 


7RESTORE MODE A 


/¥ocaL PATCHES. FOR 8/E EAE JVZ PAL8-V7__ 6/7/73 PAGE 8 | = 
_ / THESE OVERLAYS MODIFY THE EAE. MULTIPLY & DIVIDE ROUTINES: 
_ /FOR MAXIMUM SPEED WITH 24 BIT MANTISSAS. THE MULTIPLY 


‘TIME 1S LESS THAN 70 MICROSECONDS AND THE DIVIDE TIME 1S 


_ ABOUT 958 MICROSECONDS (A FACTOR OF 1.7 IMPROVEMENT). AN 


-ZappETiONAL ‘35 WORDS ARE AVAILABLE <r tae OF De 
ae / ADDITIONAL EAE INSTRUCTIONS: | 


- pab=7443_ 
— DLD= 7663 - 


8 1668 


. rt woRD BY ‘Two WORD UN SIGNED MULTIPLY ROUTINE. 
OOD “CAOBY RC DEED = CONES TWO+THREE* FOUR) ene 
OOS me RESULT 1S ROUNDED TO THE oe st@viFicaNT wonDs, 


97014 
67015 
(87016 
87817 


97920 
97621 
97622 

97923 


87024 
87825. 
7627 
(07030 © 
87931 


97032 


97933 
87034 


97038 
87036 


07837 © 


87049 
07041 


97042 


67843 — 


97044 
87645 


87846 


7814 

1842— 
7425_— 
C246 
(Taek 


1942 — 
7828. 
~OB45 
33283 


1941 


715T S 


EBs oe 


DB, 


7528 0 


9046” 
T8211 Oe 
TING oe 
23230 

759), 
1323 
7421 


‘1941 
7525 
0845 


7565 


0945 


4645 
A360 

5694 
7335 


| pas 


NORM, 


#7003 | 
ser 


Tea 
TAD E . 


oe 


2 SE ia 
eo 
DCA. 


TaD. 
— ae 
ES 
oe 

NGL 


| : Q TAD 
SUP 


inten 


pst 
“HORD- 


Ms NOR 
JMS RESOLV 
UMP I MULT. 
 DNORM 


MUY : 


we 


ca iag Ase EES 


oS yese. PREVIOUS HIGH ORDER AS 
ss REMAINDER IN THIS POSITION 
oF 7 SAVE, INTERMEDIATE RESULT 


Tapp IN PREVIOUS tit 
- 7PARTIAL PRODUCT : a“ 


- / CHECK AND ‘DISCARD THREE 
| 7ROUND OFF a 


-/ SUM - HIGH ORDER PARTS AND 
7 ADD INTO LAST PRODUCT 
on ee eT 


NORMALIZE Te 
| _ “RESTORE PROPER stay 
ae. RETURN 


/FOCAL PATCHES FOR B/E EAE SVE PALS-V7 6/1773 | PAGE 9 


(CHANGES ‘To FLOATING DIVIDE FOR Two. WORDS: : te 


1176. = ie “ «#7176 


O7176 
07377 
— OT268 
87281 
07282 


— 87203 
07204 


97205. 
97206 
(67207 


97216 
o7211. 
97212 
(97213 
97214 


97215 


7216 
87217 


— OT228 


7228 
97222 


87223 


97224 
67225 


- 97226 
97227 
87230 
97231 


97232 
97233 
97234 
(97235. 
07236. 
 O9T237 


97249 


OT241 


g7242 


nie. © 


7431 


1941. 
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